home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / PORT.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  1.4 KB  |  68 lines
  1. $INCLUDE "REGNAMES.INC"
  2. DEF SEG = &H40
  3. PRINT "ATUtilities Port Setup  -  Version 2.0   30. Oktober 1993"
  4. PRINT "Copyright (C) 1993 by Thomas Dreibholz.  All rigths reserved."
  5. j=1
  6. FOR i=8 TO 14 STEP 2
  7.  LPT(j)=PEEKI(i)
  8.  lt(j)=PEEK(&H78+(j-1))
  9.  j=j+1
  10. NEXT
  11. CALL Send(1,LPT(1),LPT(2),LPT(3),LPT(4))
  12. POKEI 8,a
  13. POKEI 10,b
  14. POKEI 12,c
  15. POKEI 14,d
  16. CALL Send(2,lt(1),lt(2),lt(3),lt(4))
  17. j=1
  18. FOR i=0 TO 7 STEP 2
  19.  xCOM(j)=PEEKI(i)
  20.  ct(j)=PEEK(&H7C+(j-1))
  21.  j=j+1
  22. NEXT
  23. CALL Send(3,xCOM(1),xCOM(2),xCOM(3),xCOM(4))
  24. POKEI 0,a
  25. POKEI 2,b
  26. POKEI 4,c
  27. POKEI 6,d
  28. CALL Send(4,ct(1),ct(2),ct(3),ct(4))
  29. CALL Send(10,0,0,0,0)
  30. PRINT "Schnittstellen-Daten wurden erfolgreich bertragen."
  31. PRINT ""
  32. END
  33.  
  34. SUB Send(cmd,a1,a2,a3,a4) SHARED
  35.  REG %AX,(1*256)+30
  36.  CALL INTERRUPT &H0B
  37.  janus=REG(%DI)
  38.  IF janus=-1 THEN
  39.   BEEP
  40.   PRINT "Amiga-Treiber an Janus-Interrupt 30 ist nicht aktiv!"
  41.   PRINT "Bitte berprfen Sie die Installation der ATUtilities!"
  42.   PRINT "Schnittstellen-Daten konnten nicht bertragen werden!"
  43.   END
  44.  END IF
  45.  se=REG(%ES)
  46.  DEF SEG = se
  47.  se=PEEKI(22)
  48.  DEF SEG = se
  49.  
  50.  janus=janus+16384
  51.  POKEI janus+0,cmd
  52.  POKEI janus+2,a1
  53.  POKEI janus+4,a2
  54.  POKEI janus+6,a3
  55.  POKEI janus+8,a4
  56.  
  57.  REG %AX,(7*256)+30
  58.  CALL INTERRUPT &H0B
  59.  REG %AX,(8*256)+30
  60.  CALL INTERRUPT &H0B
  61.  DEF SEG = se
  62.  a=PEEKI(janus+2)
  63.  b=PEEKI(janus+4)
  64.  c=PEEKI(janus+6)
  65.  d=PEEKI(janus+8)
  66.  DEF SEG = &H40
  67. END SUB
  68.